home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / color profile (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  20KB  |  427 lines
  1. 5 ifm9thensys64738
  2. 10 rem your color profile - schilling - mod 1
  3. 20 s=54272:v=53281:vb=v-1:forx=0to24:pokes+x,0:next:gosub3940:pokev,15:pokevb,0
  4. 30 c$(0)="[152]":c$(1)="":c$(2)="":c$(3)="":c$(4)="[158]":c$(5)="[156]"
  5. 40 c$(6)="[149]":c$(7)="[144]":c$(8)="[154]":r$="":f$="[146]":x$=" ":xx$="  ":x4$="    "
  6. 50 print"[147]"x$r$"       your luescher color test       ":fory=1to2:forx=0to7
  7. 60 printx$r$""x$c$(x)xx$tab(36)xx$""x$:next:next:printx4$"[145]";:fory=1to4
  8. 70 forx=0to7:printr$c$(x)x$;:next:next:print:printx$;:fory=1to19:printr$""xx$;
  9. 80 next:print""tab(6)"[151]please type your first name,
  10. 90 [153][163]13)"then press <return>poke":rt[178]1:[141]550
  11. 100 [153][163]5)"";:[151]198,0:[151]vb,15
  12. 110 k$[178]"":[151] 198,0
  13. 120 [153]" cmdwait";: [129]t[178]1[164]50:[130]:[153]" cmd";
  14. 130 [161]a$:[139] a$[178]""[167] 120
  15. 140 [139] a$[178][199](13)[167]n$[178]k$:[137]200
  16. 150 [139] a$[178][199](20)[175][195](k$)[167] [153]"cmd cmd";:k$[178][200](k$,[195](k$)[171]1):[137]120
  17. 160 [139] [195](k$)[177]10[167] 120
  18. 170 [139] a$[179]"a"[176]a$[177]"z"[167]120
  19. 180 [153]a$;:k$[178]k$[170]a$
  20. 190 [137]120
  21. 200 [153]r$"load          luescher color test           "
  22. 210 [153]"pokegrey blue grn  red  yell viol brwn blck
  23. 220 fory=1to4:forx=0to7:printr$c$(x)x4$f$x$;:next:next
  24. 230 print"[151] please adjust your color monitor to
  25. 240 [153]" give the best color representation,
  26. 250 print" then press <return>[151] to continue":gosub550:m$=""
  27. 260 print"":fory=1to118:printx$;:next:print"";:cr=0
  28. 265 print"[152]0123[158]4[156]5[149]6[144]7"
  29. 270 gosub470:nu=1:gosub550:a1=val(m$):print:gosub480:gosub550:b1=val(m$):print
  30. 280 gosub510:gosub550:d1=val(m$):print:gosub540:gosub550:c1=val(m$):print
  31. 290 ifa1>7orb1>7orc1>7ord1>7ora1=b1orc1=d1thengosub3870:goto50
  32. 300 print"[147]":print"          well done, "n$","
  33. 310 print"but we have more work to do.":print"after all, ";
  34. 320 print"dr. luescher has been working on his color tests since 1947.
  35. 330 [153]"so, let's do it once again, but in a     different way.
  36. 340 print"have a cup of coffee, clear your mind"
  37. 350 print" and press <return>":nu=.:cr=1:gosub550:m$=""
  38. 360 pokev,0:pokevb,0:print"[147]"r$"[155]   luescher color test - second round  "
  39. 370 print:forx=0to6:printr$c$(x)xx$x;:next:print:printtab(35)"[145]"c$(0)"[207][183][183]7
  40. 380 [129]x[178]0[164]6:[153]r$c$(x)x4$f$x$;:[130]:[153]:[153][163]35)"on"c$(0)"fn"[163]38)"+
  41. 390 forx=0to6:printr$c$(x)x4$f$x$;:next:print:printtab(35)"[145]"c$(0)"[165]"tab(38)"[170]
  42. 400 [129]x[178]0[164]6:[153]r$c$(x)x4$f$x$;:[130]:[153]:[153][163]35)"on"c$(0)"(NULL)andandsqr
  43. 410 print:print"[155]"tab(160):gosub470:cr=.:nu=1:gosub550:a2=val(m$):j=a2:gosub590
  44. 420 printtab(160):gosub490:gosub550:b2=val(m$):j=b2:gosub590
  45. 430 printtab(160):gosub530:gosub550:d2=val(m$):j=d2:gosub590
  46. 440 printtab(160):gosub540:gosub550:c2=val(m$):j=c2
  47. 450 ifa2>7orb2>7orc2>7ord2>7ora2=b2orc2=d2thengosub3870:goto360
  48. 460 goto610
  49. 470 print"select the color you like best,":print"  and enter its number:";:return
  50. 480 print"now,
  51. 490 [153]"select the color you like second best,
  52. 500 print"  and enter its number:";:return
  53. 510 print"now, of the remaining colors, choose
  54. 520 [153]"the color you like least of all.
  55. 530 print"  number of the "r$" worst "f$" color:";:return
  56. 540 print"and the number of the color":print"  almost as bad:";:return
  57. 550 pokes+24,15:pokes+1,110:pokes+5,9:pokes+6,9:pokes+4,17:pokes+4,16:poke198,0
  58. 560 ifrt=1thenrt=0:return
  59. 570 getm$:ifm$=""then570
  60. 572 if(cr)and(m$=chr$(13))then580
  61. 574 if(nu)and((m$>="0")and(m$<="7"))then580
  62. 576 if(yn)and((m$="y")or(m$="n"))then580
  63. 578 goto570
  64. 580 printm$:poke198,0:return
  65. 590 print"":fory=1to4:printspc(5*j)x4$:next:print
  66. 600 printtab(160):fory=1to78:printxx$;:next:print"":return
  67. 610 pokev,15:pokevb,12:printr$"[147]   your luescher color sequences are:   "
  68. 620 print"[151]first round: "r$c$(a1)xx$a1;c$(b1)xx$b1;c$(c1)xx$c1;c$(d1)xx$d1
  69. 630 print"[151]second round:"r$c$(a2)xx$a2;c$(b2)xx$b2;c$(c2)xx$c2;c$(d2)xx$d2
  70. 640 print:print"[151]first, a "r$"preliminary evaluation:":print:printn$"  you are
  71. 650 [139]a2[178]d2[176]a2[178]c2[176]b2[178]d2[176]b2[178]c2[167][153]"confused.":[141]3870:[137]360
  72. 660 [139]a2[178]a1[175]b2[178]b1[175]c2[178]c1[175]d2[178]d1[167]r[178]1:[137]730
  73. 670 [139]a2[178]a1[176]a2[178]b1[176]b2[178]a1[176]b2[178]b1[167]690
  74. 680 [139]a2[179][177]a1[175]b2[179][177]b1[175]a2[179][177]b1[175]b2[179][177]a1[167]710
  75. 690 [139]d2[178]d1[176]d2[178]c1[176]c2[178]c1[176]c2[178]d1[167]760
  76. 700 [139]d2[179][177]d1[175]d2[179][177]c1[167]780
  77. 710 [139]d2[178]d1[176]d2[178]c1[176]c2[178]c1[176]c2[178]d1[167]800
  78. 720 [139]d2[179][177]d1[175]c2[179][177]c1[167]rc[178]1:[137]740
  79. 730 [153]" extremely consistent in your choice of colors.";:[137]750
  80. 740 [153]"  extremely inconsistent in your choice of colors.";
  81. 750 [153]" remarkable!":[137]820
  82. 760 [153]"     quite consistent in your choice of  favorite colors,
  83. 770 print" and in your dislike of certain colors.":goto820
  84. 780 print"  consistent in your choice of favorite colors, but inconsistent
  85. 790 [137]810
  86. 800 [153]"inconsistent in your choice of favorite colors, but consistent
  87. 810 print"  in your dislike of certain colors.
  88. 820 [139]d2[178]d1[175]c2[178]c1[167]rl[178]1
  89. 830 [139]p$[178]"p"[167]860
  90. 840 [153]"and now, the "r$"results"f$" of your test!
  91. 850 printspc(14)"press <return>[151] when ready":nu=.:cr=1:gosub550
  92. 860 gosub3890
  93. 870 print"[147]"r$"       your psychological profile:      "
  94. 880 zz=0:a=a2:b=b2:c=c2:d=d2
  95. 890 printr$"the primary evaluation":print"shows that you:
  96. 900 [145]a [137]920,930,940,950,960,970,980
  97. 910 [153]r$" prefer to remain uncommitted,":[137]990
  98. 920 [153]r$" prefer a state of harmony,":[137]1070
  99. 930 [153]r$" like to impress people,":[137]1160
  100. 940 [153]r$" delight in action,":[137]1250
  101. 950 [153]r$" are full of expectations,":[137]1360
  102. 960 [153]r$" are sentimental and romantic,":[137]1480
  103. 970 [153]r$" like physical ease,":[137]1610
  104. 980 [153]r$" are a demanding person,":[137]1730
  105. 990 [139]b[178]1[167][153]"long for a tranquil environment":h[178].6:n[178]1
  106. 1000 [139]b[178]2[167][153]"feel exhausted by conflict":h[178].4:n[178]1
  107. 1010 [139]b[178]3[167][153]"wish to impress others":h[178].5:n[178]1
  108. 1020 [139]b[178]4[167][153]"try to avoid conflict":h[178].3:n[178]2
  109. 1030 [139]b[178]5[167][153]"are cautious in pursuit of tenderness":h[178].2:n[178]1
  110. 1040 [139]b[178]6[167][153]"desire a life of security":h[178].6:n[178]2
  111. 1050 [139]b[178]7[167][153]"feel betrayed in your hopes":h[178].2:n[178]3
  112. 1060 [137]1820
  113. 1070 [139]b[178]1[167][153]"long for a tranquil environment":h[178]1.2:n[178]1
  114. 1080 [139]b[178]2[167][153]"have a fine eye for details,
  115. 1090 ifb=2thenprint"long for a tranquil environment":h=3.8
  116. 1100 ifb=3thenprint"seek affectionate relationships":h=3.6
  117. 1110 ifb=4thenprint"seek affectionate relationships":h=1.4
  118. 1120 ifb=5thenprint"long for tenderness,:h=4.4
  119. 1130 [139]b[178]6[167][153]"desire a life of security,":h[178]1.1:n[178]1
  120. 1140 [139]b[178]7[167][153]"desire rest and relaxation":h[178]0.5:n[178]2
  121. 1150 [137]1820
  122. 1160 [139]b[178]0[167][153]"feel a lack of appreciation
  123. 1170 ifb=0thenprint"and want to establish yourself":h=.7:n=1
  124. 1180 ifb=1thenprint"want to be recognized and admired":h=3.5
  125. 1190 ifb=3thenprint"you seek success with great initiative":h=5.2
  126. 1200 ifb=4thenprint"want to be popular and admired":h=2.3
  127. 1210 ifb=5thenprint"want to be successful and recognized":h=4.2
  128. 1220 ifb=6thenprint"are proud and need to be recognized":h=1.8:n=1
  129. 1230 ifb=7thenprint"want to prove yourself":h=.5:n=2
  130. 1240 goto1820
  131. 1250 ifb=0thenprint"want to sweep away things in your way":h=.9
  132. 1260 ifb=1thenprint"strive for activity and experience":h=4.4:n=1
  133. 1270 ifb=2thenprint"pursue your objectives with intensity,
  134. 1280 [139]b[178]2[167][153]"want to achieve recognition and standing":h[178]6.6
  135. 1290 [139]b[178]4[167][153]"are of an enthusiastic nature
  136. 1300 ifb=4thenprint"and seek a life full of experience":h=11.0
  137. 1310 ifb=5thenprint"are of an enthusiastic nature
  138. 1320 [139]b[178]5[167][153]"and seek an exciting life":h[178]3.5
  139. 1330 [139]b[178]6[167][153]"like to take things easy":h[178]2.1:n[178]1
  140. 1340 [139]b[178]7[167][153]"feel to have missed something in life":